home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
os2
/
pmcstex.zip
/
PM_BINS.ZIP
/
CYKL_IN.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-01-31
|
441b
|
15 lines
/* This REXX is called by cykl!.cmd */
Call On Halt Name SignalHandler
parse arg WhichFile OldTime OldSize
say "-----------------------------------------------------"
do forever
call SysFileTree WhichFile, 'file', 'FT'
NewTime = translate(word(file.1,1))
NewSize = translate(word(file.1,2))
if (Compare(NewTime,'0')\=0 & ((Compare(NewTime,OldTime)\=0) | (Compare(NewSize,OldSize)\=0))) then
exit
end
SignalHandler: